home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / KillAuthor.zprx < prev    next >
Text File  |  1995-03-09  |  779b  |  41 lines
  1. /*
  2.    KillAuthor.zp 1.0 (22.1.94) by Ueli Kaufmann
  3.    ARexx skript für Zodiac's Point V37.117ß
  4.  
  5. Nutzen:
  6. -------
  7. 'Loescht' alle Nachrichten des aktuellen Schreiberlings.
  8. Brauchbar, wenn man zB im PM die Server-Infos loswerden will..
  9. */
  10.  
  11.  
  12. PASRE ARG zpPort
  13. ADDRESS VALUE zpPort
  14. OPTIONS RESULTS
  15.  
  16. MESSAGEINFO Author  /* aktuellen Namen ermitteln */
  17. msgAddr = RESULT
  18.  
  19. JUMPTOMESSAGE 1   /* Balken auf oberste Nachricht stellen */
  20. exitme = 0
  21. lstring = "Name " || msgAddr
  22.  
  23. say lstring
  24.  
  25. do while exitme = 0
  26.    JUMPTOMESSAGE lstring
  27.    if rc ~= 0 then
  28.    do
  29.       say "gefunden"
  30.       DELETE ONE
  31.       DOWN           /* sonst gibts 'ne nette Endlos-Schleife :( */
  32.       if rc = 0 then /* unterste Nachricht erreicht.. */
  33.          exitme = 1
  34.    end
  35.    else
  36.       exitme = 1
  37.    end
  38. end
  39.  
  40. exit
  41.